LDUpc12()           Creates printer code out of a pseudo barcode

   LDUpc12(nPrinter,cBar,nWidth,nHeight,nLeftOffset,nCPI,nRowHight)

         Arguments   nPrinter is the typ of printer. Use defined printers
                     in DL.CH.

                     cBar is the pseudo barcode generated by one of
                     the barcode functions (EAN13(),EAN8()...).

                     nWidth is the width of the printed barcode in
                     columns. If omited, 20 is assumed.

                     nWidth is the width of the printed barcode in
                     columns. If omited, 1 is assumed.

                     nLeftOffset is the offset in columns from the
                     left. If omited, 0 is assumed.

                     nCPI is the cuurent character per inch of the
                     printer. If omited, 10 is assumed, which is the
                     default for most printers.

                     nCPI is the current character per inch of the
                     printer. If omited, 10 is assumed, which is the
                     default for most printers.

                     nRowHight is the current row height in points
                     of the printer. If omited, 12 is assumed, which is
                     equal to 6 lines per inch. If a printout of 8 lines
                     per inch is required, use 9 points.



           Returns   Array of printer code.


       Description   Creates printer code out of a pseudo barcode.
                     A array on return is used, because the code of a large
                     barcode or a small barcode and a Deskjet could go
                     over the stringlimit of Clipper (>64k).

                     Most of the time the array should contain only one
                     entry.

          Examples
                     // create a UPC 12 barcode
                     cBar := LDUpc12("123456789012")

                     // generate it
                     aCode := LDGenerate(LD_TYP_EPSON9,cBar)

                     // print it
                     SET PRINTER TO LPT1
                     SET CONSOLE OFF
                     SET PRINTER ON

                     FOR ni := 1 to len(aCode)
                        ?? aCode[ni]
                     NEXT

                     EJECT
                     SET CONSOLE ON
                     SET PRINTER OFF
                     SET PRINTER TO